x <- as.integer(readline("Bitte einen Wert eingeben: "))
v <- seq(1,x,2)
print(v)
print(sum(v))
